home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / biz / demo / mrback_b_demo114.lha / ARexx_Scripts / buffer.mrbk < prev    next >
Text File  |  1991-01-12  |  906b  |  49 lines
  1. /* buffer.mrbk */
  2. /* This simple program runs tests MRBackup's ARexx capabilities. */
  3.  
  4. signal on ERROR
  5. signal on BREAK_C
  6.  
  7.  
  8. options results
  9.  
  10. if ~(Show('P', 'MRBackup_#1')) then do
  11.     say "You must run MRBackup first. With a little work, you could"
  12.     say "get this ARexx script to do it for you."
  13.     exit 1
  14. end
  15.  
  16. address "MRBackup_#1"
  17.  
  18. poptofront
  19.  
  20. 'notealert "This ARexx script plays with the Buffer Size value."'
  21.  
  22. 'getbufsize'
  23. msg = "Current buffer size = " || result || "K"
  24. 'notealert' '"'msg'"'
  25.  
  26. 'setbufsize 64'
  27. msg = "New buffer size = " || result || "K"
  28. 'notealert' '"'msg'"'
  29.  
  30. exit 0
  31.  
  32.  
  33. /*------------------------------------------------------------------*/
  34.  
  35. break_c:
  36.  
  37. say "*** Control-C recieved.  Stopped by user. ***"
  38. exit 5
  39.  
  40. /*------------------------------------------------------------------*/
  41.  
  42. error:
  43.  
  44. say "Error"
  45. exit 6
  46.  
  47. /*------------------------------------------------------------------*/
  48.  
  49.